unit dlgabout;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ShellApi,vinfo,base64;

type

  { TfrmAbout }

  TfrmAbout = class(TForm)
    Bevel1: TBevel;
    btnClose: TButton;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    lbAr: TLabel;
    Label8: TLabel;
    lbVerLabel: TLabel;
    lbPn: TLabel;
    lbVerInfo: TLabel;
    Memo1: TMemo;
    stEm: TStaticText;
    stWadr: TStaticText;
    procedure btnCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure stEmClick(Sender: TObject);
    procedure stWadrClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.lfm}

{ TfrmAbout }

procedure TfrmAbout.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmAbout.FormCreate(Sender: TObject);
var vi:TVersionInfo;
begin
  vi:=TVersionInfo.Create;
  vi.Load(HINSTANCE);
  with vi.FixedInfo do
   lbVerInfo.Caption:=Format('%d.%d.%d  b.%d',[FileVersion[0],FileVersion[1],FileVersion[2],FileVersion[3]]);
  vi.free;
  lbAr.Caption:=DecodeStringBase64('0J/QtdGC0LrQviDQmtCw0L/RgNCw0LvRj9C60L7Qsg==');
  stEm.Caption:=DecodeStringBase64('cGRmY29ycmVjdG9yQDVjby5vcmc=');
  stWadr.Caption:=DecodeStringBase64('aHR0cDovL3BkZmNvcnJlY3Rvci41Y28ub3Jn');
  lbPn.Caption:=DecodeStringBase64('UERGINCa0L7RgNC10LrRgtC+0YA=');

end;

procedure TfrmAbout.stEmClick(Sender: TObject);
begin
  ShellExecute(0,'open',PChar(DecodeStringBase64('bWFpbHRvOnBkZmNvcnJlY3RvckA1Y28ub3Jn')),nil,nil,1);
end;

procedure TfrmAbout.stWadrClick(Sender: TObject);
begin
  ShellExecute(0,'open',PChar(DecodeStringBase64('aHR0cDovL3BkZmNvcnJlY3Rvci41Y28ub3Jn')),nil,nil,1);
end;

end.

